home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_B.d64 / dir._datei [tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  145 lines
  1. 10 dimm$(100),n$(3500),n(3500):p=0:x=1:a=0
  2. 11 printchr$(8):poke53281,7:poke53272,20:goto280
  3. 15 n(p)=dn:e=len(m$(j)):return
  4. 20 open10,4,10:print#10:close10:return
  5. 30 getge$:ifge$<>"j"andge$<>"n"then30
  6. 40 return
  7. 60 print"[197]ingabe richtig ?"
  8. 70 gosub30
  9. 90 return
  10. 100 open15,c,15:input#15,aa,bb$,cc,dd
  11. 110 ifaa<>0thenprint"              f e h l e r  !           ":goto130
  12. 120 return
  13. 130 print,aa;bb$;cc;dd
  14. 140 gosub150:close2:close3:close15:return
  15. 150 poke198,0:wait198,1:poke198,0:return
  16. 160 input" [198]loppy-[193]dresse (8/9)";c$
  17. 170 c=val(c$):ifc<>8andc<>9thenprint"[145][145][145][145]":goto160
  18. 185 gosub60:ifge$="n"thenprint"[145][145][145][145][145][145][145]":goto160
  19. 190 print" [194]itte [196]isk in [204]aufwerk";c;"einlegen":print" und <[210][197][212][213][210][206]> druecken !"
  20. 200 getc$:ifc$<>chr$(13)then200
  21. 210 return
  22. 220 w=peek(768):open1,b:poke768,185:print#1:close1:poke768,w:ifst<>-128theny=0:return
  23. 230 ify=2theny=0:goto390
  24. 240 print"  [194][201][212][212][197] [218][213][197][210][211][212] [196][210][213][195][203][197][210] [197][201][206][211][195][200][193][204][212][197][206] !":gosub150:y=y+1:goto220
  25. 250 w=peek(768):poke768,185:open1,c,15,"i":close1:poke768,w:ifst<>-128theny=0:return
  26. 260 ify=2theny=0:goto500
  27. 270 print"  [194][201][212][212][197] [204][193][213][198][215][197][210][203] ";c;" [197][201][206][211][195][200][193][204][212][197][206] !":gosub150:y=y+1:goto250
  28. 280 print"[144][147]            directory-liste"
  29. 290 print"    (druck mit  seikosha   sl-80vc)"
  30. 300 print" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  31. 310 print" [194] by     t i g e r - c r e w         [194]"
  32. 320 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":gosub150:goto650
  33. 330 print "[147]    [196]rucker eingeschaltet ?? "
  34. 340 gosub150
  35. 350 print" [144][196]ruck   in [199]rossbuchstaben >[199]<"
  36. 360 print" oder    in [203]leinbuchstaben >[203]<"
  37. 370 geti$:ifi$<>"k"andi$<>"g"then370
  38. 380 ifi$="k"thena=7
  39. 390 print" [196]ruckeradresse (4/5/6)";
  40. 400 getc$:ifc$<>"4"andc$<>"5"andc$<>"6"then400
  41. 410 b=val(c$):printb:gosub220
  42. 420 print"  [195] [146] [207][206][196][197][211][197][196]":print"oder":print"  [206] [146] [207][210][205][193][204] ?"
  43. 430 getw$:ifw$<>"c"andw$<>"n"then430
  44. 440 ifw$="c"thenopen13,4,13:print#13
  45. 450 open4,b,a:cmd4
  46. 460 o=1:foru=1tot
  47. 470 printspc(10)n$(u);spc(30-len(n$(u)))n(u):o=o+1
  48. 480 ifo=65thenforc=1to7:print" ":next:o=1
  49. 490 next:forc=oto71:print" ":next:print#4:close4:ifw$="c"thenclose13:gosub20
  50. 491 print"[147] [144][201]st der [196]ruck in [207]rdnung ?"
  51. 492 gosub30
  52. 493 ifge$="n"thenprint"[147]":goto350
  53. 495 return
  54. 500 gosub160
  55. 510 gosub250:poke53281,8:print"[147][144]      [194]itte warten !                    "
  56. 520 print" [196]irectory wird gelesen !"
  57. 530 open3,c,0,"$":get#3,x$,x$:k=1:su=1:gosub100:ifsu=1thensu=0:ifaa<>0then510
  58. 540 get#3,x$,x$,l$,h$:ifx$=""then570
  59. 550 get#3,a$:ifa$<>""thenm$(k)=m$(k)+a$:goto550
  60. 560 k=k+1:goto540
  61. 570 close3:close15:k=k-1
  62. 571 print"[147]   [196][201][210][197][195][212][207][210][217] :"
  63. 580 forj=1tok:printm$(j):fore=15tolen(m$(j))
  64. 590 ifmid$(m$(j),e,5)=" prg "thenp=p+1:n$(p)=left$(m$(j),len(m$(j))-(28-e)):gosub15
  65. 600 nexte
  66. 610 nextj:gosub150:print"[147]":poke53281,0:poke646,7:print"  [196][193][212][197][201]-[201][206][200][193][204][212] :"
  67. 620 forj=xtop:printn$(j);n(j)
  68. 630 next:gosub150:x=p+1
  69. 632 forj=1tok:m$(j)="":next
  70. 640 return
  71. 650 poke53272,23:poke53281,0:print"[147][155] [196][193][212][197][201]  [197] [146] [201][160][206][160][210][160][201][160][195][160][200][160][212][160][197][160][206]":print"   oder"
  72. 660 print" [196][193][212][197][201]  [193] [146] [213][160][211][160][199][160][197][160][194][160][197][160][206] ?"
  73. 670 geted$:ifed$<>"e"anded$<>"a"then670
  74. 671 ifed$="e"thenprint"  [197][201][206][210][201][195][200][212][197][206] [146]":gosub60:ifge$="n"then650
  75. 672 ifed$="a"thenprint"  [193][213][211][199][197][194][197][206] [146]":gosub60:ifge$="n"then650
  76. 680 ifed$="a"then1000
  77. 690 print"[147]";
  78. 700 input"[196]isketten-[206]ummer ";dn$:gosub60:ifge$="n"then700
  79. 710 dn=val(dn$)
  80. 720 gosub500
  81. 730 poke53281,5:print"[147] [144][206]och ein [196]ir. lesen ? "
  82. 735 print"[198][210][197][201][197] [197][201][206][212][210][193][197][199][197]:";3000-p
  83. 740 gosub30
  84. 750 ifge$="j"then690
  85. 760 poke53281,2:print"[147][158]    [197] [206][160][196][160][197][160][146] - [194]ist [196]u sicher ?"
  86. 770 gosub30
  87. 780 ifge$="n"thenpoke53281,5:goto690
  88. 790 poke53281,7:poke646,0
  89. 800 print"[147] [206] [146][197][160][213][160][197]  [196]atei":print"   oder":print" [196] [146][193][160][212][160][197][160][201]  erweitern ?"
  90. 810 getda$:ifda$<>"n"andda$<>"d"then810
  91. 820 ifda$="n"thengosub160:goto930
  92. 830 print"[211]oll eine mit der '[212][201][199][197][210]-[196][193][212][197][201]'":print"eingerichte [196]atei erweitert werden ?"
  93. 840 gettd$:iftd$<>"j"andtd$<>"n"then840
  94. 850 iftd$="n"then890
  95. 860 input"[147] [144] [196]atei-[206]ame  $[157][157][157]";na$
  96. 861 ifna$="$"thengosub1240:goto860
  97. 862 gosub60:ifge$="n"then860
  98. 870 gosub160:open2,c,2,na$+",s,a":sv=1:gosub100:ifsv=1thensv=0:ifaa<>0thenprint"[147]":goto860
  99. 880 goto940
  100. 890 input"[147] [196][193][212][197][201]-[206][213][205][205][197][210]  $[157][157][157]";dt$
  101. 891 ifdt$="$"thengosub1240:goto890
  102. 892 gosub60:ifge$="n"then890
  103. 900 gosub160
  104. 910 open2,c,2,"disk-datei "+dt$+",s,a":sv=1:gosub100:ifsv=1thensv=0:ifaa<>0thenprint"[147]":goto890
  105. 920 goto940
  106. 930 open2,c,2,"disk-datei 1,s,w":sv=1:gosub100:ifsv=1thensv=0:ifaa<>0then800
  107. 940 forj=1top
  108. 950 ifn$(j)=""thenn$(j)="*":n(j)=0
  109. 960 print#2,n$(j)
  110. 970 print#2,n(j)
  111. 980 next
  112. 990 close2:close15:print"[147][144][206]eustart mit '[210][213][206]' !":end
  113. 1000 poke53281,12:input"[147] [144] [196]atei-[206]ame  $[157][157][157]";df$
  114. 1010 ifdf$="$"thengosub1240:goto1000
  115. 1020 gosub60:ifge$="n"then1000
  116. 1030 gosub160:open2,c,2,df$+",s,r":sv=1:gosub100:ifsv=1thensv=0:ifaa<>0then1000
  117. 1040 t=1
  118. 1050 input#2,n$(t)
  119. 1060 input#2,n(t)
  120. 1070 ifst<>64thent=t+1:goto1050
  121. 1080 close2:close15
  122. 1090 print"[147][144][193]usgabe auf  [194] [146] [201][160][204][160][196][160][211][160][195][160][200][160][201][160][210][160][205]":print"   oder"
  123. 1100 print"             [196] [146] [210][160][213][160][195][160][203][160][197][160][210] ?"
  124. 1110 getau$:ifau$<>"b"andau$<>"d"then1110
  125. 1111 ifau$="b"thenprint"  [194][201][204][196][211][195][200][201][210][205] [146]":gosub60:ifge$="n"then1090
  126. 1112 ifau$="d"thenprint"  [196][210][213][195][203][197][210] [146]":gosub60:ifge$="n"then1090
  127. 1120 ifau$="d"thengosub330:goto1200
  128. 1130 print"[147]":o=0:foru=1tot
  129. 1140 print"  ";n$(u);spc(30-len(n$(u)))n(u):o=o+1
  130. 1150 ifo=22theno=0:gosub150:print"[147]";
  131. 1160 next:gosub150
  132. 1170 print"[147] [196]atei drucken ?"
  133. 1180 gosub30
  134. 1190 ifge$="j"thengosub330
  135. 1200 print"[147][206]och eine [196]atei ausgeben ?"
  136. 1210 gosub30
  137. 1220 ifge$="j"thenrun
  138. 1230 print" [158][206]eustart mit '[210][213][206]' !":end
  139. 1240 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  140. 1250 geta$,a$,h$,l$:ifstthensys65484:close1:goto1290
  141. 1260 printasc(h$+e$)+256*asc(l$+e$);
  142. 1270 geta$,b$:ifa$thenprinta$b$;:goto1270
  143. 1280 printa$:goto1250
  144. 1290 gosub150:print"[147]":return
  145.